object frmConsCredito: TfrmConsCredito
  Left = 276
  Top = 113
  BorderStyle = bsDialog
  Caption = 'Consulta de Cr'#233'dito'
  ClientHeight = 377
  ClientWidth = 673
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 673
    Height = 330
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object lblRepresClientCapt: TLabel
      Left = 7
      Top = 7
      Width = 101
      Height = 14
      Caption = 'Representante:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label19: TLabel
      Left = 272
      Top = 29
      Width = 160
      Height = 13
      Caption = 'Cr'#233'dito Total Bloqueado:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lblCredBloq: TLabel
      Left = 441
      Top = 29
      Width = 75
      Height = 13
      Caption = '9.999.999,99'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object lblCredDisp: TLabel
      Left = 175
      Top = 29
      Width = 75
      Height = 13
      Caption = '9.999.999,99'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 6
      Top = 29
      Width = 160
      Height = 13
      Caption = 'Cr'#233'dito Total Dispon'#237'vel:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 51
      Width = 669
      Height = 277
      Align = alBottom
      Ctl3D = False
      DataSource = DS_Grid
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -9
      Font.Name = 'Verdana'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'DS_FATURA_PARCELA'
          Title.Caption = 'Fatura'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -11
          Title.Font.Name = 'Verdana'
          Title.Font.Style = [fsBold]
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DT_MOVIMENTACAO'
          Title.Alignment = taCenter
          Title.Caption = 'Data Movimenta'#231#227'o'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -11
          Title.Font.Name = 'Verdana'
          Title.Font.Style = [fsBold]
          Width = 139
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sTipoMovimentacao'
          Title.Caption = 'Tipo Movimenta'#231#227'o'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -11
          Title.Font.Name = 'Verdana'
          Title.Font.Style = [fsBold]
          Width = 131
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'sValor'
          Title.Alignment = taRightJustify
          Title.Caption = 'Valor'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -11
          Title.Font.Name = 'Verdana'
          Title.Font.Style = [fsBold]
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sBloqueado'
          Title.Caption = 'Bloqueado'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clGreen
          Title.Font.Height = -11
          Title.Font.Name = 'Verdana'
          Title.Font.Style = [fsBold]
          Width = 82
          Visible = True
        end>
    end
    object DBLookupComboBox6: TDBLookupComboBox
      Left = 119
      Top = 6
      Width = 396
      Height = 19
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      KeyField = 'cd_representante'
      ListField = 'nome'
      ListSource = DS_Representante
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      OnClick = DBLookupComboBox6Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 330
    Width = 673
    Height = 47
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    DesignSize = (
      673
      47)
    object btnFechar: TSpeedButton
      Left = 606
      Top = 3
      Width = 68
      Height = 41
      Anchors = []
      Caption = 'Fechar'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F333333337F333301111111110333337F333333337F33330111111111
        0333337F3333333F7F333301111111B10333337F333333737F33330111111111
        0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
        0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
        0333337F377777337F333301111111110333337F333333337F33330111111111
        0333337FFFFFFFFF7F3333000000000003333377777777777333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      OnClick = btnFecharClick
    end
  end
  object QR_Grid: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    OnCalcFields = QR_GridCalcFields
    DataSource = DS_Representante
    Parameters = <
      item
        Name = 'CD_REPRESENTANTE'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '1'
      end>
    SQL.Strings = (
      'SELECT R.NOME,'
      'FP.DS_FATURA_PARCELA,'
      'C.TIPO_MOVIMENTACAO,'
      'C.DT_MOVIMENTACAO,'
      'C.VALOR,'
      'C.SN_BLOQUEADO'
      'FROM ( TB_CREDITO AS C LEFT JOIN TB_FATURA_PARCELA FP '
      '               ON C.cd_fatura_parcela = FP.cd_fatura_parcela) '
      '             INNER JOIN TB_REPRESENTANTE R '
      '             ON C.cd_representante = R.cd_representante'
      'WHERE R.CD_REPRESENTANTE = :CD_REPRESENTANTE')
    Left = 264
    Top = 113
    object QR_GridNOME: TWideStringField
      DisplayWidth = 45
      FieldName = 'NOME'
      Size = 50
    end
    object QR_GridTIPO_MOVIMENTACAO: TWideStringField
      DisplayWidth = 59
      FieldName = 'TIPO_MOVIMENTACAO'
      Size = 50
    end
    object QR_GridVALOR: TBCDField
      DisplayWidth = 24
      FieldName = 'VALOR'
      Precision = 19
    end
    object QR_GridSN_BLOQUEADO: TBooleanField
      DisplayWidth = 15
      FieldName = 'SN_BLOQUEADO'
    end
    object QR_GridsValor: TStringField
      FieldKind = fkCalculated
      FieldName = 'sValor'
      Calculated = True
    end
    object QR_GridsTipoMovimentacao: TStringField
      FieldKind = fkCalculated
      FieldName = 'sTipoMovimentacao'
      Calculated = True
    end
    object QR_GridsBloqueado: TStringField
      FieldKind = fkCalculated
      FieldName = 'sBloqueado'
      Calculated = True
    end
    object QR_GridDT_MOVIMENTACAO: TDateTimeField
      FieldName = 'DT_MOVIMENTACAO'
    end
    object QR_GridDS_FATURA_PARCELA: TWideStringField
      FieldName = 'DS_FATURA_PARCELA'
      Size = 50
    end
  end
  object DS_Grid: TDataSource
    DataSet = QR_Grid
    Left = 265
    Top = 165
  end
  object QR_Representante: TADOQuery
    Connection = dtmSisnnovi.connSisnnovi
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TB_REPRESENTANTE'
      'ORDER BY NOME')
    Left = 358
    Top = 114
  end
  object DS_Representante: TDataSource
    DataSet = QR_Representante
    Left = 358
    Top = 162
  end
end
